home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Trading on the Edge
/
Trading On The Edge - CD-ROM Toolkit (Wayzata Technology)(2031)(1994).bin
/
pc
/
mac_file
/
vendor_d
/
neuralwa
/
nw2v50
/
lay_engy.ipb
< prev
next >
Wrap
Text File
|
1993-08-23
|
1KB
|
45 lines
inst3.1 ! Feb 7 1989
!****************************************************************
!* *
!* Energy InstaProbe *
!* *
!****************************************************************
!
! This script builds an instrument which plots the energy
! for the pointed to (near) layer of a network.
!
@Vars NP !Prompt for near layer and position
@NrLX !Get layer index of near PE
?NPEl 0
>bge lab0
@Err "A non-constant layer must be pointed to"
:lab0
=PNam "_lay_"
+PNam NPEl !Append layer number to name
@PbAS !Add Probe
?PbSt 0 !Check status of probe
>beq lab1 !Already there, don't add component
@PALy !Add Near Layer to Probe
:lab1
! *** Build Instrument ***
@ILdD !load default instrument
=ITit "Energy Lay " !Instrument title
+ITit NPEl
=Ivmn &vmn
=Ivmx &vmx
=ICTh &cth
=Ignx &gnx
?&gnx 0
>bgt lab3
=Ignx 100 !100 graph points
:lab3
=IGVr "Energy" !graph energy
=ITTy "Avg" !type of transform
=ILnA 0 !Not active in learn
=IRcA 1 !active in recall
=IRDv 1 !divisor of 1
=IPrb PNam !Point to probe
@IAdd !Now create instrument